home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / dir.tes < prev    next >
Text File  |  1991-07-11  |  2KB  |  33 lines
  1. !dir.tes-display directory!
  2. [0 [1 [2                ! save Q-regs 0-2                  !
  3. .u0                     ! remember where we are            !
  4. zj                      ! jump to end of buffer            !
  5. .u1                     ! remember old end of buffer       !
  6. 0u2                     ! zero column count                !
  7. @^u1%*.*%               ! default is get dir of everything !
  8. q1"n                    ! is buffer not empty?             !
  9.   80-q1"g               !   is buffer length < maxpath?    !
  10.     0,q1x1              !     assume edit buf = filespec   !
  11.   '                     !   endif                          !
  12. '                       ! endif                            !
  13. en^eq1                ! preset wildcard lookup           !
  14. q1j                     ! jump to end of buffer            !
  15. <                       ! <build filename display          !
  16.   :en                !   return filename, break if none !
  17.   g*                    !   put filename into edit buffer  !
  18.   (1%2)-5"e             !   is fifth and final column?     !
  19.     13@i%%              !     insert <CR>                  !
  20.     10@i%%              !     insert <LF>                  !
  21.     0u2                 !     reset column count           !
  22.   |                     !   else                           !
  23.     15+^S<              !     <do column mod 15 times      !
  24.       32@i%%            !       insert <SPACE>             !
  25.     >                   !     >                            !
  26.   '                     !   endif                          !
  27. >                       ! >                                !
  28. q1,zt                   ! display what we built            !
  29. q1,zk                   ! kill what we built               !
  30. q0j                     ! jump to where we were            !
  31. ]2 ]1 ]0                ! restore Q-regs 0-2               !
  33.